Untitled

SOME CHARTS

library("tidyverse")

## ── Attaching packages ── tidyverse 1.2.1 ──

## ✔ ggplot2 3.1.0     ✔ purrr   0.3.0
## ✔ tibble  2.0.1     ✔ dplyr   0.7.8
## ✔ tidyr   0.8.2     ✔ stringr 1.3.1
## ✔ readr   1.3.1     ✔ forcats 0.3.0

## ── Conflicts ───── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

source("audience-knowledge.R", local = TRUE)

## Parsed with column specification:
## cols(
##   short.name = col_character(),
##   type = col_character(),
##   knowledge.type = col_character(),
##   question = col_character(),
##   response = col_character()
## )

gg_plot <- audience_knowledge %>%
  ggplot(aes(x = question,
             y = response)) +
  geom_col() +
  coord_flip()

library("plotly")

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

gg_plot %>%
  ggplotly()

library("highcharter")

## Highcharts (www.highcharts.com) is a Highsoft software product which is

## not free for commercial and Governmental use

audience_knowledge %>%
  hchart(
    type = "bar",
    hcaes(
      x = question,
      y = response,
      group = knowledge.type
    )
  )